مدرسة السادات الثانوية العسكرية مشاريع الفصل الدراسي الثاني 2012/2011 م 
معمل الحاسب الألي 


المشروع الأول :- اختبار في جدول الضرب 
صمم مشروع يقوم باظهار عددين بطريقة عشوائية ثم يتم إدخال الناتج وإظهار عبارة الناتج صح أو خطا 
أولاً : تصميم المشروع ( وضع الأدوات على النموذج وضبط الأدوات ) 


الدوال المستخمة فى المشروع :- اھ ا اختبار في جدول الضرب ااه 


الدالة ۸1 تستخدم في الحصول على القيمة العددية لسلسلة حرفية 
الدالة »×۴ تستخدم في الحصول على العدد الصحيح لقيمة عشرية 
الدالة 8"١‏ تستخدم في توليد أرقام عشوائية محصورة بين الصفر 
والواحد ( لا تصل للواحد ) 


Randomize : اوسيل‎ 


ثانيا :- كتابة كود المشروع 
Public Class Form1‏ 
كود أمر الخروج Dim a, b, cy, m As Single‏ 
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs )‏ 
Handles Button3.Click‏ 


End 
End Sub 


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs ) 
Handles Button2.Click 


c = Val(TextBox1.Text) 
m =a * b كود اختبر الحل‎ - 
If c = m Then 
Ns صواب الحل" ) ×80 ع‎ "( 
Else 
هو الصحيح والحل خطاأً الحل" ) ×80عك"‎ " & m( 
End If 
End Sub 


Private Sub Button1_ Click(ByVal sender As System.Object, ByVal e As System.EventArgs ) 
Handles Button1.Click 


Randomize ( ) 
a = Fix(Rnd() * 13) 
b = Fix(Rnd() * 13) كود أمر مسألة جديدة‎ - 


Label1.Text = a - 
Label3.Text = b 


TextBox1.Clear() 
TextBox1.Focus() 
End Sub 
End Class 
1 
إعداد‎ 
أ/ عبدالناصر محمد محمد عبدالفتاح مذكرة حاسب آلي أولى ثانوي معلم حاسب آلي‎ 


الترم الثاني 


مدرسة السادات الثانوية العسكرية مشاريع الفصل الدراسي الثاني 2012/2011 م 
معمل الحاسب الألي 


المشروع الثاني :- اظهار صورة عشوائية داخل النموذج 


صمم مشروع يقوم بتحريك صورة داخل النموذج بصورة عشوائية 
أولاً : تصميم المشروع ( وضع الأدوات على النموذج وضبط الأدوات ) 


س a‏ حح all Form1‏ 
الدوال المستخمة فى المشروع ّ 
الدالة 1 تستخدم في الحصول على القيمة العددية لسلسلة حرفية 
الدالة »أ۴ تستخدم في الحصول على العدد الصحيح لقيمة عشرية 
الدالة 0 تستخدم في توليد أرقام عشوائية محصورة بين الصفر 
والواحد ( لا تصل للواحد ) 


Randomize : اوسيل‎ 


ثانيا :- كتابة كود المشروع 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles‏ 
Button1.Click‏ 
Dim x, yy, l1l, h As Single‏ 
Randomize ( )‏ 


Me.Width - PictureBox1.Width 


X 


Me.Height - PictureBox1.Height 
1 = Fix(RnNnd() * X) 

h = Fix(Rnd() * y) 
PictureBox1.Left = 1 


y 


PictureBox1.Top = h 
'Button1.BringToFront ( ) 
End Sub 


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 


Button2.Click 
End 
End Sub 
End Class 
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إعداد‎ 
أ/ عبدالناصر محمد محمد عبدالفتاح مذكرة حاسب آلي أولى ثانوي معلم حاسب آلي‎ 


الترم الثاني 


مدرسة السادات الثانوية العسكرية مشاريع الفصل الدراسي الثاني 2012/2011 م 
معمل الحاسب الألي 


المشروع الثالث - رقم الحظ هو رقم الكمبيوتر 


صمم واجهة مستخدم تقوم بإدخال رقم ويقوم الكمبيوتر بإظهار رقم آخر عشوائي إذا تساوى الرقم المدخل مع رقم الككبي 
ادى إلى حصول المستخدم على جائزة وإذا لم يتساوى يظهر آنه خسر ومن ثم أكتب الكود الخاص بالمشروع 


رقع الحظ قو رقم التعبيوتر هة 


أولاً شاشة ال لتصميم 


Label3 


Label# 


ثانيا :- الكود 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs ) Handles Button1.Click 


Dim n, c As Single 


Randomize ( ) 


n = Val(TextBox1.Text) 


c = Fix(RnNnd() * 7) 
Label3.Text = cC 


If n = c Then 


1 


Label4.Text 
Else 


Label4. Text "خسرت"‎ 


End If 


End Sub 


إعداد 
أ/ عبدالناصر محمد محمد عبدالفتاح 


مذكرة حاسب آلي أولى ثانوي معلم حاسب آلي 


الترم الثاني 


مدرسة السادات الثانوية العسكرية مشاريع الفصل الدراسي الثاني 2012/2011 م 
معمل الحاسب الألي 


المشروع الرابع :- بيع ملحقات كمبيوتر 


صمم واجهة مشروع لمحل بيع أجهزة وملحقات الحاسب لإختيار سلع لزبون يشتري من المحل 


أولاً:- واجهة المستخدم 


HEHEHE 


2 
- 
1 
1 
- 
١ 
١ 
١ 
١ 
1 
١ 
1 
1 
1 
1 
1 
1 
1 
١ 
1 


ثانيا : الكود 


Public Class Form1 
Dim a, b, c As Integer 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
Button1.Click 
End 
End Sub 


Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs ) 
Handles CheckBox1.CheckedChanged 
If CheckBox1.Checked = True Then 


a = 50 
Else 
a = 0 
End If 
Label2.Text = a + b + cC 
End Sub 


Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs ) 
Handles CheckBox2.CheckedChanged 
If CheckBox2.Checked = True Then 


b = 250 
Else 
b = 0 
End If 
Label2.Text = a + b + cC 
End Sub 


Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs ) 
Handles CheckBox3.CheckedChanged 
If CheckBox3.Checked = True Then 


C = 60‏ 
Else‏ 
C= 0‏ 
End If‏ 
Label2.Text = a + b + c‏ 
End Sub‏ 
End Class‏ 
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إعداد 
أ/ عبدالناصر محمد محمد عبدالفتاح مذكرة حاسب آلي أولى ثانوي معلم حاسب آلي 


الترم الثاني 


مدرسة السادات الثانوية العسكرية مشاريع الفصل الدراسي الثاني 2012/2011 م 
معمل الحاسب الألي 


الصمتزوزوات الصوجودة 
شای ١‏ جنيه [#] 


قهوة ۲ جنيه [م] 


تمم الي ل ججقفيت اققا 


افا ٦‏ ميد الا 


labe| 2 عدد‎ -3 Checkbox 4 عد‎ -2 groupbox 1 عد‎ -1 


Public Class Form1l 
Dim tea, cof, sah, coc As Single 


Private Sub CheckBoxl1 CheckedChanged (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles CheckBox1.CheckedChanged 


If CheckBox1.Checked Then tea = 1 Else tea = 0 


Label2.Text = tea + cof + sah + COC & "aıiج"‎ 


End Sub 


Private Sub CheckBox2 CheckedChanged (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles CheckBox2.CheckedChanged 


If CheckBox2.Checked Then cof = 2 Else tea = 0 


Label2.Text = tea + cof + sah + COC & "aıiج"‎ 


End Sub 


Private Sub CheckBox3 CheckedChanged (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles CheckBox3. CheckedChanged 


If CheckBox3. Checked Then sah = 2 Else tea = 0 


Label2.Text = tea + cof + sah + COC & "aıiج"‎ 


End Sub 


Private Sub CheckBox4 CheckedChanged (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles CheckBox4.CheckedChanged 


If CheckBox4.Checked Then coc = 3 Else tea = 0 


Label2.Text = tea + cof + sah + COC & "aıiج"‎ 


End Sub 


End Class 


إعداد 
أ/ عبدالناصر محمد محمد عبدالفتاح 


مذكرة حاسب آلي أولى ثانوي معلم حاسب آلي 


الترم الثاني 


مدرسة السادات الثانوية العسكرية مشاريع الفصل الدراسي الثاني 2012/2011 م 
معمل الحاسب الألي 


المشروع السادس :- إظهار الأعداد الصحيحة من 1 إلى 10 ومجمق 
قم بتصميم نافذة لإظهار الأعداد الصحيحة من 1 إلى 10 وحساب مجموعهم 


اک پار الأعداد می 1 ری 10 ومجموعپا 


الكود 


Public Class Form1 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
MyBase.Load 

Dim n As Byte 

Dim t As Integer 

TextBox1.Clear( ) 


t = 0 
For n = 1 TO 10 

t= tt + n 

TextBox1.Text = TextBox1.Text & n & vbCrLf 
Next 
Label2.Text = t 

End Sub 
End Class 
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إعداد‎ 
عبدالناصر محمد محمد عبدالفتاح مذكرة حاسب آلى أولى ثانوي معلم حاسب آلي‎ / 


الترم الثاني 


مدرسة السادات الثانوية العسكرية مشاريع الفصل الدراسي الثاني 2012/2011 م 
معمل الحاسب الألي 


المشروع السابع :برنامج عواصم ودول 


> Label2 الأدوات المستخدمة‎ 
Button 2 ڭ3دكes‎ -2 label 2 د3دs‎ —-1 
l1listbox 1 د3دes‎ -—-4 combobox 1 د3دes‎ -3 


Public Class Form1l 


Dim n, r As Byte 


Private Sub Forml1 Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles MyBase. Load 


ListBox1. Hide () ء«lفخاl‎ رj‎ 
End Sub 


Private Sub Buttonl Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button1l.Click 


Randomize () زر سؤال جديد‎ 
n = Fix(ListBoxl1.Items.Count * Rnd() ) 
Label2.Text = ListBox1l. Items (n) 

End Sub 


Private Sub Button2 Click (ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button2.Click 


r = ComboBox1 .SelectedIndex زر النتيجة‎ 
If n = r Then 

MsgBox (" ("صحيحة اجابة‎ 
Else 


MsgBox ("ûaباجا ("خطاً‎ 


End If 
End Sub 
End Class 
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إعداد‎ 
عبدالناصر محمد محمد عبدالفتاح مذكرة حاسب آلي أولى ثانوي معلم حاسب آلي‎ / 


الترم الثاني 


مدرسة السادات الثانوية العسكرية مشاريع الفصل الدراسي الثاني 2012/2011 م 


معمل الحاسب الألي 
مراجعة عامة على المنهج 


٣‏ - مرحلة" الصيانة 'تعتير آخر المراحل الأساسية لإتشاء أي نظام أو التحسين قي أداكه۔ 
٣‏ ناتج تتفیذ الأمر (()لd٣‏ ۸ )×۴1 )»× N1560‏ دائما یعطی صقر ۔۔ 

٤‏ - تتيح الأداة ×oا)ععمطع‏ ترك الاختیارات كلها محددة 

. Next nla Do While ÃÛI -تنتهي اد‎ ٥ 

“- يمكن الحصول على الوقت الحالئي بعد تنفيذ !لمر ) Msg Box( ToDay‏ 


) 
) 
) 
) 
) 
) 


Dim a, b, cC As Integer 


For a = ۱1 To A Step 
b= a ^ Y 
cC = (YY Mod YY * YY) *b / a + ۹ 
MsgBox (cc) 

Next 


(1( (ب) 


Ext لتغيير عنوان النافذة ( ) من قائمة ٥اا تختار‎ -١ 
1٥× لتخيير لون خلفية النموذج ) ( تنستخدم الخاصية‎ -١ 
To00ا|ا منڻ ×0ط‎ ( ) vb.net لإغلاق برنامچ‎ ۳ 
Backcolor صاخئlا يتم اختيار الأدوات ) ( نختار‎ ->٤ 
٠ خط تحت الكلمة المختلفة فيما يلى‎ 

1. Do Step Next For 

'. RemoveAt Name Clear Insert 

ToString Val Format Short‏ .؟ 

“. RadioButton CheckBox Visible Grou pBox 

o. Decimal Integer Singel Double 

1“. Try SelectCase End Select Case 


اكمل مكان النقط بما تراه مناسبا من الكلمات الآاتية لكي تحعل العبارات صحيحة: 
التحليل - التصميح - التكويد - التنفيذ - الصيانة 


ت تتت ات اا ت اا تت ار 


-١‏ تعتبر مرح له enue aad‏ هي أول مزحلة من المراحل الأساسية لعمل آي نظام أو التحسين في أدائه. 
-١‏ المرح لة التي يتم عندها كتابة البرنامج بلغة كمبيوتر معينة تسمي مرح لة ......... < . 
- تش غيل البرنامج وإدخال البيانات اللازمة ثم اختبار النتائج يتم ذلك في مرح لة TTT e‏ 
-٤‏ مرح لة Khe SEAKSEREADL SSS‏ عندها يتم إجراء التعديلات المطلوبة لملاحقة التطور وعمل نسخ احتياطية للبيانات. 
-٥‏ مرح ل O TTT‏ يتم فيها تصميم ووضع الطريقة المتاحة للحل. 
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إعداد 


أ/ عبدالناصر محمد محمد عبدالفتاح مذكرة حاسب آلي أولى ثانوي معلم حاسب آلي 


الترم الثاني 


مدر 


مدرسة السادات الثانوية الصكرية ‏ مشاريع الفصل الدراسي الثاني 2012/2011 م a‏ 
معمل الحاسب الألي کج اولي 
"N‏ و م 
أكمل مكان النقط بما تراه مناسيا من الكلمات اللآتية لكي تجعل العبارات PE‏ 


Enabled - Interval — Text — Today — TimeOfDay — TextBox — Timer 


OS چچ س خد لے ۱لک اة کھ۔ ھا اھ ال بی ات ات پھ ا مسہ تخدما خاص ی ے‎ ١ 
لجہ لھ ا غیر متاح ے للإسد ۔ تخدام بے د جع لل‎ Butt 0٥0٣ يمک لن اسد تخداخ الخاصب ة ................ للڭاة‎ - ۲ 


القیم ے عءاو۴ لھ ذه الخاصب ےة. 


٣۳‏ یمک ےت “د کے الکاة ک............. لتتقی د الاج لوپ اد ب للد دت اع آ٣‏ بے د قترة زمتی ےة ب تح 
تد دیدھ ا مت کڪ الال الخاص ب ےة i VS‏ 

٤‏ - تسد تخدم الداد ة .> ..... لمعهرة ة الوة ت الجكالي يجه از الكميي وة بر 

-٥‏ يمك بن اسد تخدامح الدال ة ......... لمد رذ ے الد ص نالي يجھ از الكميي وة بر. 


۹= من الأدوات الت تس دح کي تنقي ذد مجہ وک 8 مڻ الأوامر تلقائی اأ بعد د قتر 5 ر صنب ةه معيدة 8 هي الأداة: 


.ConboBOX ج¢چ—-‎ .Timer — .TextBox —Î 
بع د فترة زمتي ة معيذ ة يتم تحديدهھ ا بالخاصب ےة:‎ r imer_ ٣آ‎ cم يمكن تتنفية مجمو عة أوامر داخل الإجراء‎ - ۲ 
.Name ج—‎ .Enabled أ‎ Interval —Î 
يہ طي:‎ MsgBox )T7 in¬ ٥e0٥0۴٥¬ھ¥( تاتج تنڌ یذ الأ ر‎ ٣ 
. أ الوق ت الد ال٠ بی - الاسر الد الئي. ج- التاريخ والوقت الحالييت‎ 
یع طي:‎ Msg Box )آ٥هdلھإ¥( ناتج تند يذ الأ ر‎ - >٤ 
. أ التاري خ الد اف پ- الود ت الچھالیے. ج- التاريخ والوقت الحالييت‎ 


-٥‏ يمکنڻ إيج اد ع دد عثد وائي ياس تخداح الدال لة: 


.Year جچ—¬‎ . Rnd ¬ .Interval —Î 


-١‏ عتد استخدام الجملة الشرطية ...ع٥sاع٤... [۴...٣ hn ٥٣‏ في حالة تحقق الشرط الذي بیت ۴[ و ٥۸‏ ط٣‏ یتم تنا 


آ- الجمل التي بعد ٣‏ عط ٣آ‏ ب - الجمل التي بعد ع٥sاع.‏ چت الجمل الت کیل £۴ 
٣‏ - قي الجملة الشرطية ...ع٥sاع... [۴...٣ hn٣‏ قىي حالة عدم تحقق الشرط الذي بيت 1۴ و ١ع‏ ط٣‏ يتح تتقيذ: 
آ- الجمل التي بعد ٣عط ٣‏ يات الجمل التي بعد ع٥كاع.‏ ج الجمل التي قبل ۴]: 
-٣‏ في الجملة Me.Trext = "Clock"‏ تم اس تخدام الخاصية: 
.Clock + Text ¬ .Me -—i‏ 
٤‏ - قي الجملة Me.rext = "7٣۳٥ع ٣"‏ الخاصية التي تح اس تخدامها قيمتها: 
Text — .Me -—‏ جچ— Timer‏ 
د٥-‏ يعد تتقيذ الجملة Button 1.Enabled = False‏ يصبح الکائڻ 1 :ButtON‏ 
آ- غير متاح للاستخدام. = قى ج- متاح للاستخدامح. 


Dim N, K, C As Integer ۰ 
بعد تنفيذ هذه التعليمات» أكمل مكان النقط,‎ 
C=6 a O OTE E 
For N =1 To 6 Step 3 
K=K+N ناتج الشرط € < ل يساوي‎ -3 
Next Û O ns قيمة المتغير ) تساوي:‎ -4 
If N>C Then 


C=C+1 
End If 


إعداد 
أ/ عبدالناصر محمد محمد عبدالفتاح 


مذكرة حاسب آلي أولى ثانوي معلم حاسب آلي 


الترم الثاني 


مدرسة السادات الثانوية العسكرية مشاريع الفصل الدراسي الثاني 2012/2011 م 
معمل الحاسب الألي 


أقرأً التعليمات التالية: 


Arabi : English=20 

If Arabic>25 Then 

Total=Arabic +English : Avg=( Arabic +English )/2 

Else 

Arabic=25 : English=22 

Total=Arabic + English : Avg=( Arabic +English )/2 

End if 

بعد تنفيذ التعليمات السابقة ضع علامة (۷) أمام العبارة الصحيحة وعلامة ( × ) أمام العبارة الخطاً لكل مما 
1. قيمة المتغير ٤ا۸۲‏ تساوي 30 . ) () 
2. قيمة المتغير ۸ءااع"۴ تساوي 22. ) ( 
3. ناتج التعبیر 25<٥1اھ٣A۸‏ یکون 1۸U۴٤‏ . ) ( 
4. قيمة المتغيراة†ه۲ تساوي 47 . ) ( 
5. قيمة المتغیر ع۸ تساوي 23.5. ) ( 
السوؤال الرايع: اقرا التعليمات التالية: 

Age=25.5 

Mark=90 

If Age<26 Then 

Age=16 

Mark=100 

End If 


Total=Mark*2 
بعد تنفيذ التعليمات السابقة اختر الإجابة الصحيحة لكلا مما يلي.‎ 


1- قيمة المتغير ٠ع‏ تساوي : 


أًٌ- 25.5 ب- 90 ج- 16 
2- قيمة المتغير Na)‏ تساوي: 

أ - 90 ب- 100 چ- 25.5 
3- قيمة الشرط 26>٥ع۸‏ : 

أ - 25.5 ¬ False True‏ 
4- قيمة المتغير اة٤ه۲‏ تساوي: 

أ - 200 ب- 180 ج-190 
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إعداد 


أ/ عبدالناصر محمد محمد عبدالفتاح مذكرة حاسب آلي أولى ثانوي معلم حاسب آلي 


الترم الثاني 


